﻿Public Class dlgAbout
    Private Sub dlgAbout_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.lblAppName.Text = "AppName :" & Application_Name
        Me.lblAuthor.Text = "Author  :" & Application_Author
        Me.lnkEmail.Text = "Email   :" & Application_Email
        Me.lnkHomepage.Text = "HomePage:" & Application_HomePage
        Me.lblComplex.Text = "SourceCode:" & Application_SourceControl
        Me.lblVersion.Text = "Version :" & Application_Version
        Dim strInfo As String = String.Empty
        strInfo = Application_Name & " is a TextEditor written by Microsoft VisualBasic.NET"
        strInfo &= vbCrLf & Application_Name & " is a Free Software"
        strInfo &= vbCrLf & "Thanks to the support from VB.NET-Forum of www.csdn.net"
        strInfo &= vbCrLf & "Icon Designed By DyLike"
        Me.txtInfo.Text = strInfo
    End Sub
    Private Sub lnkEmail_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles lnkEmail.LinkClicked
        Process.Start("Mailto:" & Application_Email)
    End Sub
    Private Sub lnkHomepage_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles lnkHomepage.LinkClicked
        Process.Start(Application_HomePage)
    End Sub
    Private Sub lblComplex_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles lblComplex.LinkClicked
        Process.Start(Application_SourceControl)
    End Sub
End Class